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AAA AaB 
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AA AKA 
AAA AAA 
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AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
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**F 1LE**1D**PASHEX 
PPPPPPPP AABARA SSSSSSSS_ HH HH EEEEEEEEEE Xx XX 
PPPPPPPP AAAAAA SSSSSSSS_ HH HH EEEEEEEEEE Xx XX 
PP PP AA AA SS HH HH EE XX XX 
PP PP AA AA SS HH HH EE XX Xx 
PP PP AA AA SS HH HH EE XX XX 
PP PP AA AA SS HH HH EE XX Xx 
PPPPPPPP Ah AA SSSSSS HHHHHHHHHH EEEEEEEE XX 
PPPPPPPP BA AA SSSSSS HHHHHHHHHH EEEEEEEE XX 
PP AAAAAAAAAA SS HH HH EE XX XX 
PP AAAAAAAAAA SS HH HH EE XX Xx 
PP Aa AA SS HH HH EE XX Leal ee 
PP val ab SS HH HH EE XX XX . 
PP AA AA SSSSSSSS HH HH EEEEEEEEEE Xx XX eee 
PP RA AA SSSSSSSS HH HH EEEEEEEEEE Xx XX 
LL II1111 SSSSSSSS 
LL 11111 SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII! SSSSSSSS 
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PASSHEX Convert value in base 16 to strin 1b. $ep-1984 01:41: AX-11 Bliss-32 V4.0-742 Page 1 PA 
| . 14- ~gep7} 38? 9 12:51: 93 PASRTL.SR RCIP PASHEX.B32;1 . (1) 1- 
3 1 0001 0 MODULE PASSHEX ( &TITLE ‘Convert value in base 16 to strin ~~ 

; é 4 8 IDENT = '1-001' ! File: PASHEX.B32 Edit: $B8L1001 
3 000 ) zs 

nice Bie 

: § sie) 1 I TIETTLITTTE LTTE LE LETT TELE LE LTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT tte 
: 1 !® * 
; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
; 9 0009 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 19 Bate : :* ALL RIGHTS RESERVED. * 
$ ; * 
; \¢ Borg 1 !e re SOF TWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: 1 001 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 14 0014 1 !* | ELu ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY UTHER’ * 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: V? SEA : :* TRANSFERRED. * 
° :* + 
; 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE « 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 21 0021 1 !* CORPORATION. * 
; 22 0022 1 !* * 
3 23 0023 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
: 25 0025 1 !* * 
; 26 0026 1 !* * 
: a7 QO27 1 ei eee EEE EEE EEE REAR AEREEEEREERER eee 
3 28 0028 1! 

; 29 0029 1 

; 0030 1 !++ 

ae} 0031 1 ! FACILITY: Pascal Language Support 

5 32 0032 1! 

3 33 0033 1 ! ABSTRACT: 

; 34 0034 1: 

; 35 0035 1! This module contains PASSHEX which implements the 

; $9 ite . VAX-11 Pascal HEX procedure. 

: $ site : ENVIRONMENT: User mode - AST reentrant 

: 40 0040 AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 

a 0042 1 | MODIFIED BY: 

: 43 0043 1! 

3 rh ’ i 1-001 = Original. SBL 1-April-1981 

: 46 1 

oo 
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Convert value in base 16 to string Jo~senn 1366 OF 81:68 AX-11 Bi iegeze V4.0-742 Page 2 
Declarations 14-Sep-1984 12:51: PASRTL.SRCJPASHEX.B32;1 (2) 
0047 1 &XSBTTL ‘Declarations' 
0048 1! 
0049 1 ! PROLOGUE DEFINITIONS: 
0 | 
Ba8¢ : REQUIRE ‘RTLIN:PASPROLOG'; ! Externals, Linkages, PSECTs, structures 
wile 3 
0118 1 ! TABLE OF CONTENTS: 
0119 1! 
0120 1 
0121 1 FORWARD ROUTINE 
0155 } PASSHEX: NOVALUE; ' Convert value in base 16 
01246 1! 
0125 1 ! MACROS: 
0126 1! 
0127 1! NONE 
0128 1! 
0129 1 ! EQUATED SYMBOLS: 
0130 1! 
0131 1! NONE 
0132 1! 
0133 1 ! FIELDS: 
0134 1! 
0135 1! NONE 
0136 1! 
0137 1 ! OWN STORAGE: 
0138 1! 
0139 +1! NONE 
O14) 1 
0142 1 !! If this {s for a V2 system, redefine OTS$CVT_L_TZ as PAS$CVT_L_TZ. 
0143 1 XIF XVARIANT 
0144 1 XTHEN 
0145 1 viata >: 
0146 1 
0147 1 
0148 #1 
0149 ‘1 
0150 1 
0151 1 


TS$SCVT_L_T2; 
EXTERNAL ROUTING: 
PASSCVT_L_TZ; 
BIND ROUTINE 
' OTS$CVT_L_TZ = PASSCVT_L_TZ; 


eo———__—- 
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PASSHEX ert value in base 16 to strin 1:41: AX-11 Bliss-32 V4.0-742 Page 
1-001 HEX = Convert value in base 18 to string 14-Sep-1984 12:84:88 UPASRTL- SRE PASHEX.B32;1 (3) 
| 91 ZSBTTL "PASSHEX - genvert value in base 16 to string’ 
38 GLOBAL ROUTINE PASSHEX ( 
9 RESULT: REF VECTOR C, BYTE], Result string 
> % TOTAL_WIDTH: WORD SIGNED, Total field width 

5 NBITS, Size of value in bits 


Address of value 
Minimum number of digits 


VALUE 
MIN DIGITS: SIGNED 
): NOVACUE = 


‘ee 


; FUNCTIONAL DESCRIPTION: 


This procedure implements the VAX-11 Pascal HEX function. It 
converts a value to an ASCII representation in base 16 and stores 
that result in a string. 


TAL’ ING SEQUENCE: 


CALL PASSHEX (RESULT.wt.r, TOTAL_WIDTH.rw.v, NBITS.rl.v, VALUE.r2.r 
t, MIN_DIGITS.rl.vd) 


Surl.v 
FORMAL PARAMETERS: 
RESULT - The string into which the result will be placed. 
TOTAL _WIDTH - Total field width. 
NBITS - The size of VALUE in bits. 
VALUE - The address of the value to write. 
MIN_DIGITS - Optional. The minimum number of digits to appear 


in the result. Defaults to the minimum number of 
digits necessary to represent every bit of the value. 


NONE 
! IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE -* 
! SIDE EFFECTS: 
NONE 
! SIGNALLED ERRORS: 
NEGDIGARG = negative ‘digits’ argument to BIN, HEX or OCT is not allowed 
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_ PASSHEX convert value in base 16 to strin 16-Sep-1984 01:41: AX-11 Bliss-32 V4.0-742 Pa 4 
1-001 ASSHEX = Convert value in base 18 to string 1228687 382 95:84:83 PASRTL.SRCJPASHEX.832;1 at (3) 
4 BEGIN 
ACTUAL_DIGITS, ! Number of digits actually used 
ACTUAL_NBITS, ! Value size actually used 
DESCR: BLOCK (8, BYTE); ! String descriptor 
LITERAL 
M_SIZE_IN_BITS = %x‘'04'; ! Flags argument for 
! convert routine 
BUILTIN 
ACTUALCOUNT; 


'¢ 
} Set initial values for conversion. 


ACTUAL sth = 


a .NBITS; 
ACTUAL-DIGITS = (.ACTUAL_NBITS#3)/4; 


'¢ 
Create result string descriptor with actual width. 


SSP SS SS sa NS SS FSS SS SS She 
ODONAWUVES WN OC OONAOUE WN O OODNOU EWN" OOODNAUS WH "OVOO 


ei ee eee 


2 
2 
22 
2 
2 
2 DESCR CDSC$B_CLASS] = DSCS$K_CLASS_S; 
2 DESCR CDSCSB_DTYPE) = DSCSK_DTYPE_T; 
$3 DESCR CDSCSA_POINTER] = RESOLT (03; 
23 IF ACTUALCOUNT () GEQU 5 
23 THEN 
23 BEGIN 
24 ACTUAL_DIGITS = .MIN_DIGITS; 
$ UF ACTUAL_DIGITS Ls$ 0 
st - SIGNAL_STOP (PAS$_NEGDIGARG); ! Negative ‘‘digits’’ argument to BIN, HEX or OCT is not allow 
24 . 
$48 DESCR CDSCSW_LENGTH) = .TOTAL_WIDTH; 
8 248 i Will TOTAL_WIDTH truncate the value? 
3 350 a 
90 251 IF .TOTAL_WIDTH LSSU (.ACTUAL_NBITS+3)/4 
91 2 ; THEN 
92 333 ACTUAL_NBITS = .TOTAL_WIDTH * 4; 
94 255 IF .ACTUAL_DIGITS GTRU .TOTAL_WIDTH 
95 256 THEN 
96 257 ACTUAL_DIGITS = .TOTAL_WIDTH; 
97 258 
98 259 '¢ 
he 4 so Do the conversion. We assume it won't fail. 
01 6 ; 
=) $§ OTSSCVT_L_TZ (.VALUE, DESCR, .ACTUAL_DIGITS, .ACTUAL_NBITS, 
203 364 M_SIZE_IN_BITS); 
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PASSHEX Convert value in base 16 to strin rhesé -1984 01:41: AX-11 Bliss<-32 V4.0-74 P 
1-001 PASSHEX = Convert value in base ig to string 12=808- 1 3be 95:84:88 PASRIL  SREIPASHEX: B3o 4 ms (33 
; 205 0 66 RETURN; 
: 206 8 6 
3 07 68 END; ! End of routine PASSHEX 
-TITLE PASSHEX Convert value in base 16 to string 
IDE"? \1-001\ 
EXTRN PASS$HEX, PASS_NEGDIGARG 
-EXTRN OTSS$CVT_L_TZ 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
001C 00000 -ENTRY PASS$HEX, Save R2,R3,R4 ; 0153 
5E 08 C2 00002 SUBL2 # 3 
3¢ 0c AC 00 00005 OVL NBITS, ACTUAL_NBITS > 0226 
5 03 A2 9E 00009 MOVAB 3(R2), R3 : 0227 
53 04 C6 0000D DIVL2 #4, R : 
54 53 00 00010 MOVL R3. ACTUAL DIGITS : 
02 AE 010E 8F BO 00013 MOVW #270, DESCR+2 + 0234. 
04 «AE 04 AC dO 00019 MOVL RESULT. OT ESCA+G : 0235 
05 6C 91 OOO1E CMPB (AP), #5 3 0237 
13° 1F 00021 BLSSU ; 
54 14 AC 00 00023 MOVL MIN_DIGITS, ACTUAL_DIGITS ; 0240 
0D 18 00027 BGEQ : 0241 
000000006 8F DD 00029 PUSHL #PAS$_NEGDIGARG 1 0243 
000000006 00 C1 £B 000eF CALLS #1, L T0 : 
50 08 A. 32 00036 1$: CVTWL TOTAL WIDTH, RO + 0246 
6E 50 BO O003A MOVW RO, DESCR : 
53 50 D1 00030 CMPL RO, R3 ; 0251 
04 1€ 00040 BGEQU es : 
52 50 02 78 00042 ASHL RO, ACTUAL_NBITS 3; 025 
50 54 D1 00046 28: CMPL setune. “DIGITS, RO > 025 
03 1B 00049 BLEQU 3 
54 50 DO 00048 MOVL RO, ACTUAL_DIGITS : 025 
04 DD OO04E 38: PUSHL #4 : 026 
52 DD 00050 PUSHL ACTUAL_NBITS r 
54 DD 00052 PUSHL ACTUAL “DIGITS : 
Oc AE 9F 00054 PUSHAB DESCR : 
10 AC dD 00057 PUSHL VALUE : 
000000006 00 05 FB OOOSA CALLS He OTS$CVT_L_TZ 3 | 
04 00061 RET : 0268. 


; Routine Size: 98 bytes, Routine Base: _PASS$CODE + 0000 


269 1 
270 1 !<BLF/PAGE> 


: 208 0 
; 209 0 


aaa 
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PASSHEX Convert value in base 16 to strin "9 19300-1388 91:61:08 ont Bliss-32 V4.0-742 Page 6 
1-001 PASSHEX = Convert value in base 16 to string 14-Sep-1984 12:51: PASRTL.SRCJPASHEX.B32;1 (4) 
3 «(62t} 0271 1 END ' End of module PASSHEX 
318 037 1 : 
3 at 0275 0 ELUDOM 

-EXTRN LIBSSTOP 

; PSECT SUMMARY 
: Name Bytes Attributes 
: PASSCODE 98 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
3 Library Statistics 
Tae Sy recone ret a CT SyYEGO(G sececess Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32:1 9776 5 0 581 00:01.0 
3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 3 0 33 00:00.4 
; COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:PASHEX/OBJ=OBJ$:PASHEX MSRC$:PASHEX/UPDATE=(ENH$:PASHEX) 


3; Size: 98 code + 0 data bytes 
; Run Time: 00:04.5 

3; Elapsed Time: 00:17.2 

3 Lines/CPU Min: 3615 

3 Lexemes/CPU-Min: 8105 

sam Used: 54 pages 
; Compila 


tion Complete 
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ENT CORPORATION 
ND PROPRIETARY | 
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